home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PKEY11_1.ARJ / ET.LSP < prev    next >
Text File  |  1992-03-14  |  818b  |  27 lines
  1. ;Extend or Trim Lines
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. ;
  7. (setq oer *error*  *error* err2)
  8. (INITGET "Extend Trim")
  9. (setq et1(getkword "Do you want to Extend or <Trim>: "))
  10. (if(equal et1 nil)(setq et1 "Trim"))
  11. (setq ent(entsel "\nSelect edge : "))
  12. (setq obj(car ent))
  13. (setq x(getpoint "\nPick crossing line startpoint: "))
  14. (setq y(getpoint  x "\nendpoint: "))
  15. (setq ss1(ssget "c" x y))
  16. (setq count 0)
  17. (if(/= ss1 nil)
  18. (while(< count(sslength ss1))
  19. (setq e1st(entget(ssname ss1 count))
  20.       pt1 (cdr(assoc 10 e1st))
  21.       pt2 (cdr(assoc 11 e1st))
  22.       int (inters x y pt1 pt2))
  23. (if(equal et1 "Extend")
  24. (command"extend" obj "" int "")
  25. (command"trim" obj "" int ""))
  26. (setq count (1+ count))))
  27. (princ)